maybe one of these will work for you ...

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

I did something similar a few yrs ago. if the application is still available on the old server

1) then you can put some code in the PostOpen event of the database to rename the server in the icon. when the user clicks on the icon it should automatically go to the new server.

newserv := "new server";
@If(@Subset(@DbName; 1) = newserv; @Return(""); "");
@Command([RenameDatabase]; @DbName; newserv)

2) you can create redirector databases for each application you moved. This could be tedious but here's how it's done ...

create a blank database and give it the exact same file name as the database you are moving. in the database script place this code in the following events:

Initialize

Dim ws As NotesUIWorkspace
Dim s As NotesSession
Dim db As NotesDatabase
Dim oldServer As String
Dim dbName As String
Declare Sub keybd_event Lib "user32.dll" (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer,Byval dwExtraInfo As Integer)
Dim view As NotesView
Dim doc As NotesDocument
Dim col As NotesDocumentCollection
Dim thisdb As NotesDatabase
Dim tmp As String
Dim twoLiner As String

PostOpen

Sub Postopen(Source As Notesuidatabase)
Dim dbBookmark As New NotesDatabase("","bookmark.nsf")
Dim view As NotesView
Dim doc As NotesDocument
Dim col As NotesDocumentCollection
Dim thisdb As NotesDatabase
Dim ws As New NotesUIWorkspace
Set thisdb = source.Database
databasePath = thisdb.FilePath
oldserver = thisdb.Server

Set view = dbBookmark.GetView("All Bookmarks")
Set col= view.GetAllDocumentsByKey(thisdb.Title)
If col.Count > 0 Then
For k = 1 To col.Count
Set doc = col.GetNthDocument(k)
Call doc.Remove(True)
Next
End If

'close this db since it's on old server
If False Then
Dim tmp As String
Set s = New NotesSession
Set ws = New NotesUIWorkspace
Set db = s.CurrentDatabase
tmp = db.Server
dbName = db.FileName
Msgbox "server=[" + oldServer + "], dbName=[" + dbName + "]"

Call s.SetEnvironmentVar("migrationServer", tmp)
Call s.SetEnvironmentVar("migrationDBName", dbName)

If ( Instr(Lcase(tmp), Lcase(oldServer)) <> 0 ) Then

End If
End If
'end delete icon

Dim twoLiner As String
twoLiner = |This database has been moved to a new server.

You will automatically be redirected to the new server by clicking OK.|
Messagebox twoLiner, MB_OK, "Domino Administration"
Call ws.OpenDatabase("<new server>","<db filepath>")

End Sub

QueryClose

@Command([WindowWorkspace])

Terminate

Sub Terminate
Dim tmp As String
Dim oldServer As String
Dim dbTitle As String

Set s = New NotesSession
Set ws = New NotesUIWorkspace
oldServer = "<old server>"

Set db = s.CurrentDatabase
tmp = db.Server
dbTitle = "<db filepath>"
If ( Instr(Lcase(tmp), Lcase(oldServer)) <> 0 ) Then
Call ws.AddDatabase(oldServer, dbTitle)
keybd_event &h2e,0,0,0 ' Del key down
keybd_event &h2e,0,2,0 ' Del key up
keybd_event &h0D,0,0,0 ' Return key down
keybd_event &h0D,0,2,0 ' Return key up
End If
End Sub

Now delete the original database from the old server and put this database in it's place. When the user tries to open the database the code will run and will redirect the user to the database on the new server.

Feedback response number WEBB877QHN created by ~Phil Nonhipigenikle on 07/09/2010